home *** CD-ROM | disk | FTP | other *** search
/ Amiga News 95 / Amiga News 95.iso / dpat / dpat06 / sad / reseautest.bas < prev    next >
Encoding:
BASIC Source File  |  1989-08-23  |  13.0 KB  |  165 lines
  1. OUI=1 : NON=0                                                                   
  2. GOSUB MAIN                                                                      
  3. END                                                                             
  4. '--------------------------------------------------Niveau  9                    
  5.                                                                                 
  6. CALCULCHOIX:                                                                    
  7. PRINT "         CHOIX  est V ou F ?"                                            
  8. K$=""                                                                           
  9. WHILE K$=""                                                                     
  10. K$=INKEY$                                                                       
  11. WEND                                                                            
  12. CHOIX=NON                                                                       
  13. IF K$="V" THEN CHOIX=OUI                                                        
  14. RETURN                                                                          
  15.                                                                                 
  16.                                                                                 
  17. CHOIXOUI:                                                                       
  18. PRINT "         -Exécution de CHOIX OUI"                                        
  19. RETURN                                                                          
  20. '--------------------------------------------------Niveau  8                    
  21.                                                                                 
  22. AFFICHAGE:                                                                      
  23. PRINT "        -Exécution de AFFICHAGE"                                         
  24. PRINT "TEST CODE"                                                               
  25. RETURN                                                                          
  26.                                                                                 
  27. CHOIXDUJOUEUR:                                                                  
  28. PRINT "        -Exécution de CHOIX DU JOUEUR"                                   
  29. RETURN                                                                          
  30.                                                                                 
  31. TESTCHOIX:                                                                      
  32.    GOSUB CALCULCHOIX                                                            
  33.    IF CHOIX=OUI THEN GOSUB CHOIXOUI                                             
  34. RETURN                                                                          
  35.                                                                                 
  36.                                                                                 
  37. CHOIXDUSENS:                                                                    
  38. PRINT "        -Exécution de CHOIX DU SENS"                                     
  39. RETURN                                                                          
  40. '--------------------------------------------------Niveau  7                    
  41.                                                                                 
  42. CALCULPOSSIBILITE:                                                              
  43. PRINT "       POSSIBILITE  est V ou F ?"                                        
  44. K$=""                                                                           
  45. WHILE K$=""                                                                     
  46. K$=INKEY$                                                                       
  47. WEND                                                                            
  48. POSSIBILITE=NON                                                                 
  49. IF K$="V" THEN POSSIBILITE=OUI                                                  
  50. RETURN                                                                          
  51.                                                                                 
  52.                                                                                 
  53. POSSIBILITEOUI:                                                                 
  54. PRINT "       -Exécution de POSSIBILITE OUI"                                    
  55.    GOSUB AFFICHAGE                                                              
  56.    GOSUB CHOIXDUJOUEUR                                                          
  57.    GOSUB TESTCHOIX                                                              
  58. RETURN                                                                          
  59.                                                                                 
  60. POSSIBILITENON:                                                                 
  61. PRINT "       -Exécution de POSSIBILITE NON"                                    
  62.    GOSUB CHOIXDUSENS                                                            
  63. RETURN                                                                          
  64. '--------------------------------------------------Niveau  6                    
  65.                                                                                 
  66. TESTPOSSIBILITE:                                                                
  67.    GOSUB CALCULPOSSIBILITE                                                      
  68.    IF POSSIBILITE=OUI THEN GOSUB POSSIBILITEOUI ELSE GOSUB POSSIBILITENON       
  69. RETURN                                                                          
  70.                                                                                 
  71. '--------------------------------------------------Niveau  5                    
  72.                                                                                 
  73. MVTCHASSEURS:                                                                   
  74. PRINT "     -Exécution de MVT CHASSEURS"                                        
  75. RETURN                                                                          
  76.                                                                                 
  77. MVTJOUEUR:                                                                      
  78. PRINT "     -Exécution de MVT JOUEUR"                                           
  79.    GOSUB TESTPOSSIBILITE                                                        
  80. RETURN                                                                          
  81.                                                                                 
  82. MAJCOORDONNEESJOUEUR:                                                           
  83. PRINT "     -Exécution de MAJ COORDONNEES JOUEUR"                               
  84. RETURN                                                                          
  85.                                                                                 
  86. CALCULFINPRINCIPALEPHASE:                                                       
  87. PRINT "     -Exécution de CALCUL FIN PRINCIPALE PHASE"                          
  88. RETURN                                                                          
  89. '--------------------------------------------------Niveau  4                    
  90.                                                                                 
  91. PRINCIPALEPHASE:                                                                
  92. PRINT "    -Exécution de PRINCIPALE PHASE"                                      
  93.    GOSUB MVTCHASSEURS                                                           
  94.    GOSUB MVTJOUEUR                                                              
  95.    GOSUB MAJCOORDONNEESJOUEUR                                                   
  96.    GOSUB CALCULFINPRINCIPALEPHASE                                               
  97. RETURN                                                                          
  98. '--------------------------------------------------Niveau  3                    
  99.                                                                                 
  100. TANTQUEPRINCIPALEPHASE:                                                         
  101. PRINCIPALEPHASE=NON                                                             
  102. WHILE PRINCIPALEPHASE=NON                                                       
  103.    GOSUB PRINCIPALEPHASE                                                        
  104. PRINT "    PRINCIPALEPHASE  est V ou F ?"                                       
  105. K$=""                                                                           
  106. WHILE K$=""                                                                     
  107. K$=INKEY$                                                                       
  108. WEND                                                                            
  109. IF K$="V" THEN PRINCIPALEPHASE=OUI                                              
  110. WEND                                                                            
  111. RETURN                                                                          
  112.                                                                                 
  113. '--------------------------------------------------Niveau  2                    
  114.                                                                                 
  115. LECTUREFICHIERRESEAU:                                                           
  116. PRINT "  -Exécution de LECTURE FICHIER RESEAU"                                  
  117. RETURN                                                                          
  118.                                                                                 
  119. NBRENNEMIS:                                                                     
  120. PRINT "  -Exécution de NBR ENNEMIS"                                             
  121. RETURN                                                                          
  122.                                                                                 
  123. POSITIONENNEMIS:                                                                
  124. PRINT "  -Exécution de POSITION ENNEMIS"                                        
  125. RETURN                                                                          
  126.                                                                                 
  127. POSITIONJOUEUR:                                                                 
  128. PRINT "  -Exécution de POSITION JOUEUR"                                         
  129. RETURN                                                                          
  130.                                                                                 
  131. PARTIE:                                                                         
  132. PRINT "  -Exécution de PARTIE"                                                  
  133.    GOSUB TANTQUEPRINCIPALEPHASE                                                 
  134. RETURN                                                                          
  135. '--------------------------------------------------Niveau  1                    
  136.                                                                                 
  137. INITIALISATION:                                                                 
  138. PRINT " -Exécution de INITIALISATION"                                           
  139.    GOSUB LECTUREFICHIERRESEAU                                                   
  140.    GOSUB NBRENNEMIS                                                             
  141.    GOSUB POSITIONENNEMIS                                                        
  142.    GOSUB POSITIONJOUEUR                                                         
  143. RETURN                                                                          
  144.                                                                                 
  145. TANTQUEPARTIE:                                                                  
  146. PARTIE=NON                                                                      
  147. WHILE PARTIE=NON                                                                
  148.    GOSUB PARTIE                                                                 
  149. PRINT "  PARTIE  est V ou F ?"                                                  
  150. K$=""                                                                           
  151. WHILE K$=""                                                                     
  152. K$=INKEY$                                                                       
  153. WEND                                                                            
  154. IF K$="V" THEN PARTIE=OUI                                                       
  155. WEND                                                                            
  156. RETURN                                                                          
  157.                                                                                 
  158. '--------------------------------------------------Niveau  0                    
  159.                                                                                 
  160. MAIN:                                                                           
  161. PRINT "-Exécution de MAIN"                                                      
  162.    GOSUB INITIALISATION                                                         
  163.    GOSUB TANTQUEPARTIE                                                          
  164. RETURN                                                                          
  165.